unit UNewContactUni;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxSkinsCore, dxSkinOffice2007Blue,
  Data.DB, MemDS, DBAccess, Uni, cxTextEdit, cxLabel, cxGroupBox, UFrameSave;

type
  TFNewContactUni = class(TForm)
    FrameSave1: TFrameSave;
    cxGroupBox1: TcxGroupBox;
    Label3: TcxLabel;
    edtName: TcxTextEdit;
    edtDolgnost: TcxTextEdit;
    cxLabel1: TcxLabel;
    cxLabel3: TcxLabel;
    edtEmail: TcxTextEdit;
    cxLabel4: TcxLabel;
    edtSkype: TcxTextEdit;
    cxLabel8: TcxLabel;
    edtMessenger: TcxTextEdit;
    edtPhone1: TcxTextEdit;
    cxLabel6: TcxLabel;
    cxLabel7: TcxLabel;
    edtPhone3: TcxTextEdit;
    edtPhone2: TcxTextEdit;
    cxLabel5: TcxLabel;
    Query1: TUniQuery;
    procedure FrameSave1btnSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FNewContactUni: TFNewContactUni;

implementation

{$R *.dfm}

procedure TFNewContactUni.FrameSave1btnSaveClick(Sender: TObject);
begin
  FrameSave1.btnSaveClick(Sender);
  Close;
end;

end.
